COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device XGP
C00004 00003	.BEGIN "Title"
C00005 00004	.onecol
C00006 00005
C00009 ENDMK
C⊗;
.device XGP;
.require "bask.pub[sub,sys]" source_file;
.font 5 "grfx25";
.font A "ms25"
.sides←1;
.require "twocol.pub[sub,sys]" source_file;
.macro sskip	⊂ skip to column 1⊃;	<< section skip control >>
.
.MACRO YON(LBL)  ⊂ "Section "; SUB2! LBL ⊃;
.
.MACRO SUB(IND) ⊂ INDENT 0,IND; TABS IND+1;⊃
.
.MACRO IB ⊂ turn on "%";
.AT """" ⊂ (IF THISFONT=1 THEN "%3" ELSE "%1"); ⊃
.AT "<" ⊂ "%2" ⊃;  AT ">" ⊂ "%1" ⊃;
. ⊃

.MACRO BIB  ⊂
.   BEGIN INDENT 0,3; NOJUST; IB;
.   AT "AIM-" ⊂ "Stanford AI Memo AαIαMα-" ⊃;
.   COUNT exref TO 200
.   AT "⊗" ⊂ IF LINES<3 THEN NEXT COLUMN; NEXT EXREF; ("["&EXREF&"]  ") ⊃
.   ⊃;
.at "//pers";	⊂ once fill nojust; indent 0,5; ib; turn on "#";
.  at "sra"	⊂ "%2Student Research Assistants:%1"	⊃
.  ("%3Personnel: %1");
.  ⊃;
.
.recursive MACRO GET(FILE) ⊂ BEGIN "FILE"
.REQUIRE "FILE" SOURCE;
.END "FILE"
. ⊃

.onecol;
.SECNAME←"";
.BEGIN "Title"
.pagehigh←54
.pagewide←80
.PAGE FRAME pagehigh HIGH pagewide WIDE;
.evenleftborder ← oddleftborder ← 1000;
.area title lines 16 to pagehigh;
.place title;
.page←0;
.SECNAME←"";
.sname ← SSNAME ← NULL
.PORTION TITLEPAGE
.center
.SKIP 2
Supplement
.SKIP 2
.Select 1
for
.SKIP 2
.Select 3
LISP Timing Evaluation Project
.SKIP 2
.Select 1
.SKIP 4
Principal Investigator 
.skip
John McCarthy
.SKIP 4
Associate Investigator 
.skip
Richard Gabriel
.skip 2
.TURN OFF 
.END "Title"
.
.onecol;
.count page from 1 to 999
.portion some; place text;
.next page;
.fill; adjust;
.get "tim81"